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A | *EDTSSCRREPMOD = put the screen in replace mode’ 
MODULE EDTSSCRRE ! Put the screen in cept ace mod 

jDEnt = 'v04-000' ' File: SCRREPMOD.BLI Edit: JBS1001 
pesin 
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ie 

ie COPYRIGHT (cd 1978, 1980, 1982, 1984 8 

ie DIGIT L Ful PMEN NT_ CORPORATION, MAYHARD. MASSACHUSETTS. 

is ALL RIGH $ RESERVES. 

ie THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONS 
is SOFTWARE ON EQUIPMENT WHIC 
i 
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ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


++ 
FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 


This module puts the screen in replace mode. The opposite 
of replace mode is insert mode. 


' 
i 
i 
i 
i 
i 
i 
i 
ENVIRONMENT: Runs at any access mode - AST reentrant 
i 
i 
i 
i 
i 
ie 


AUTHOR: John Sauter, CREATION DATE: April 1, 1983 
MODIFIED BY: 
1-001 - Original. JBS 01-Apr-1983 
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1 SSBTTL Declarations’ 
| TABLE OF CONTENTS: 
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REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSSC_REP_MODE : NOVALUE; 


DOOD 


UENO O0 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 


MACROS: 
NONE 
EQUATED SYMBOLS: 


ete S000 


NOUN (OOO NOUS WO 


IN REPLACE _STRING = UPLIT (ZSTRING (ZCHAR (ASC_K_ESC), ‘C4L")); 
LITERAL 
REPLACE_STRING_LEN = 4; 
OWN STORAGE: 
NONE 
i EXTERNAL REFERENCES: 
In the routine 
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EDTSSCRREPMOD DISSCRREPMOD = put the screen in replace mode 16-Sep-1984 01:41:01 AX-11 Bliss-32 V4.0-74 P 
042000 EDTSESC REP MODES put the Serecn In rectors co Weakepetand faisusse || FET SeBh LE RRze ato or 7. aoe 33 
; $3 ZSBTTL "EDTSSSC_REP_MODE = put the screen in replace mode’ 
GLOBAL ROUTINE EDTSSSC_REP_MODE ! Put the screen in replace (not insert) mode 
: NOVALUE = 
le4¢ 


FUNCTIONAL DESCRIPTION: 
This routine puts the screen in replace mode (that is, not insert mode). 


SLPSLELLESE 


: 1 

3 1 

; 1 

; 1 

; 1 

; 1 

; 1 

3 1! 

; ii 

; ii 

; | FORMAL PARAMETERS: 

: 4 ii NONE 

: 183 oF) 6} i IMPLICIT INPUTS 

: 1 4 ore 1} é 

; 104 674 1! NONE 

: 192 of2 ti smpLicit OUTPUTS 

me RR . 

: 108 0678 1 | EDT$$G_INSERT_MODE 
: 110 0 1 ! ROUTINE VALUE: 

> 111 681 1! 

oe By ape 

3 114 06 4 SIDE EFFECTS 

: 116 1} NONE 

a BRL 

: 119 689 1 

> 120 0690 BEGIN 

: 183 $3 EXTERNAL ROUTINE 

i be98 EDTSSFMT_LIT; 

: 124 94 

+ 125 0695 EXTERNAL 

: : $ 009 EDTS$G_INSERT_MODE; ! 0 = in replace mode 
: 184 0698 EDTSSFMT_LIT (REPLACE STRING, REPLACE_STRING_LEN); 
3 193 699 EDTS$G_INSERT_MODE = 0; 
3 1% 0700 END; ! of routine EDTS$SC_REP_MODE 


-TITLE EDTSSCRREPMOD EDTSSCRREPMOD - put the sc.een in 
replace mode 
-IDENT \V04-000\ 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
6C 34 5B 1B 00000 P.AAA: .ASCII <27>\C41\ 3 


REPLACE _STRING= P.AAA 
eEXTRN EDTSSFMT_LIT, EDTS$G_INSERT_MODE 


0000 00000 -ENTRY EDTSSSC_REP_MODE, Save nothing ; 0660 


ate ee ny 


<= 


-_-_- 


VOu=000 EDTEESCSREPoRODE”= ‘put the Sereen Sang state, HEc8E0-198 aio EDT SeehSERRE BOD -BL1 


PUSHL 
000000006 00 F5 RF a PUSHAB Re arth et et 


CALLS FMT_LIT 
000000006 85 6 b4 OO0E CLRL Ebtssc. INSERT_MODE 


; Routine Size: 21 bytes, Routine Base: _EDTSCODE + 0004 


; 13) 0701 1 
; 132 0702 1 !<BLF/PAGE> 


9 
VOL=000  EDISSSCREPLAODE™= put the sereen nreplace mo iecSep=19Be fa:dui8o  LEDT-SRCSeRnepMOD 8.1: 


; 133 OF. 1 END ! of module EDTSSCRREPMOD 
; 4 705 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 25 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


By, Bip ec ee Se eee Symbols -<-<----- Pages Processing 

: File Total Loaded Percent Mapped me 

: _$255$DUA28:(EDT.SRCJEDT.L32;1 377 1 4 0:00.2 

; Fee e TUB EDT ene PSECTS.L32;1 2 1 38 ; $0; 00:4 

; COMMAND QUALIFIERS 

: Serer ee Cee RET EAL LPT OME EE LETRA SOLEIL LOA, SOO SCORNED ICO HCN TOD MSRC$:SCRREPMOD .BLI/UPDATE=(ENHS$:S 
Size: 21 code + 4 data bytes 
Run Time: 09: on 
Elapsed Time: :10.6 


Lines/CPU Min: 4884 
Lexemes/CPU-Min: 13073 

ry Used: 51 pages 
Compilation Complete 


———+ 
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